##individual participation measures, women

nonreligious.women<-c(0.156, 0.096, 0.085, 0.036, 0.023, 0.022, 0.003,-0.013)
nonreligious.women.se<-c(0.054,0.045, 0.054,0.016, 0.056, 0.040, 0.033,0.044)

var.names<-c("Volunteered in Election","Voted", "Discussed Politics",  "Post Online Abt Politics", "Signed up for CCMG", "Helped Others Vote","Donated","Attended Campaign Events")

y.axis<-length(var.names):1
adjust<-.1

par(mar=c(10,10,3,7),lheight=.6)
plot(nonreligious.women, y.axis+adjust, type="p", axes=F, xlab="",ylab="",pch=19,col="blue",cex=1.2,xlim=c(-.1,.25),ylim=c(min(y.axis),max(y.axis+adjust)),main="")
axis(1,pretty(c(-0.1,0.25),5))
axis(2,at=y.axis+adjust,label=var.names,las=1,tick=T,cex.axis=0.75)
box=(bty="1")
segments(nonreligious.women-qnorm(.95)*nonreligious.women.se,y.axis+adjust,nonreligious.women+qnorm(.95)*nonreligious.women.se,y.axis+adjust,col="blue",lwd=2.5)
segments(nonreligious.women-qnorm(.975)*nonreligious.women.se,y.axis+adjust,nonreligious.women+qnorm(.975)*nonreligious.women.se,y.axis+adjust,col="blue",lwd=1.3)
abline(v=0,lty=2)
